﻿Public Class MuhYasCekAktarimi : Inherits Process

	Dim donem, tarih As Input

	Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
		Select Case e.EventType
			Case EventType.Initialize
				Start("Yaşlılık çek aktarımı", "Dönemi girin.")
				donem = AddCombo("Donem", "Maaş dönemi", Emeklilik.Maas.DonemSource, "nl;width=10", "--first--")
				StartBody()
				tarih = AddDate("tarih", "Çek tarihi", "nl", Today.YMD)
				AddList()
				List.AddColumns("refno(Ref no.;c;80),alacakli(Alacaklı;100%l),kimlik(Kimlik;c;80),tutar(Tutar;m;90),yazdir(;c;40)")
			Case EventType.ValidateForm
				Rs = Muhasebe.Yaslilik.CekListesi(Remote, donem.Get)
				List.DataSource = Rs
				Buttons.Show("Next")
				Help = "İlgili döneme ait çekler listelenmiştir. Çek aktarımı için Devam butonunu kullanın."
				e.Result = True
			Case EventType.Save
				If Not Confirm("Çek aktarım işlemini onaylıyor musunuz?") Then Return
				Dim Result = Muhasebe.Yaslilik.CekAktar(Remote, donem.Get, tarih.Get, User.Kaykul)
				If Result.ErrorOccured Then
					Warning("Kayıt yapılırken bir hata oluştu.", Result.ErrorMessage)
					Return
				End If
				Info("Çek aktarım işlemi tamamlandı.")
				Close()
		End Select
	End Sub

End Class
